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MACREL 

The latest information on the progress on the MACREL project is a bit discourag- 
ing. Apparently in the last couple of months a decision -was made to stop -work 
on MACREL and to shift resources from that project to an effort to get caught up 
on the SIS backlog which seems to have grown to be quite substantial. In addi- 
tion, apparently, the plans for the OS/8 version h release which was intended to 
include MACREL have been delayed. In place of the version k release the plans 
now call for a version 33 release which will apparently contain nothing but 
maintenance updates that result from the SIR work. If you have any bugs in any 
of the OS/8 software you should get your reporfc in immediately so that it- can be 
included in the version 3B release. 

BDP-8/12 SOFTWARE M&IHTSJ&ffCE 

As noted above the single largest problem users have been having in recent 
months has been with bugs in DEC's software and slow/inadequate 3PR service. 
(Example: I received an answer to one of my 29 April SPR's on 29 September - 5 
months to the day. All it said was that I was correct and that they would 
publish the way to get around the problem that I had included in the SPR. They 
.could not even type the example correctly. Most important they made no effort 
or promise regarding making the problem go away or to keep it from crashing 
programs at run time!) I have scheduled a session at the Fall DECUS Symposium 
in Los Angeles to talk about this subject. DEC representatives from the 
responsible areas have committed to participate in the session. They will not 
be able to say what has happened to SPR number so-and-so but they will be 
addressing how DEC supports our software, what the problems with that support 
are and what can be done to improve the situation. Bring your problems and 
ideas. I intend that the session be an interactive, open forum. 

MULTI-8 

I recently received a copy of the first volume of detail information on the 
MJI/TI-8 system from J, F. Anthoni and E. Lopes Cardozo. The report seems to be 
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well -written and it describes a very interesting system combining a real-time 
foreground with a multi-user time sharing background. The system is still under 
development. It presently exists in versions to run on a standard PDP-8, an 8l 
with the intelxigent instruction trap hardware that has been described in 
European DECUS Proceedings by Anthoni, and it also now works with a PDP-8e 
intelligent trap built by Mr. Cardozo at Utrecht. This is similar to the 81 
trap except that it is programmable. Mr. Cardozo also indicates that he is 
proposing a more sophisticated "memory management unit" that would improve the 
performance in user mode. All processor generated fields would be translated 
by a RAM table. Thus, the background program would run in truly virtual memory 
and a paging strategy implemented on a per field basis could be implemented. 
Also this unit would involve a programmable untrap so that individual CDF instruc- 
tions could be enabled or disabled at run time. Some of this hardware is a 
little like what EDUCOMP has implemented, I think. 

A note just arrived from Ernst Lopes Cardozo with some further information on 
MUTffI-8. He says the system will be distributed by a small Butch software 
house. They were pushing to have a distributable system at the DECUS EUROPE 
Symposium on 10-12 September. A special workshop was planned. No farther infor- 
mation yet on cost or who the software house is. 

They use an interesting scheae to reduce trapping overhead in this system. When 
a skip IOT is trapped (i.e. TSF, etc.) it is patched to be a "SKP" to eliminate 
future traps, (if the monitor can't handle further I/O to the device then it 
will temporarily suspend the user when he tries to do the further transfers 
(i.e., TPC, TIS, etc.) anyway so this patch which makes it seem that the device 
is always ready does no harm). This handles the problea of a program hanging in 
an I/O wait loop tJidetected, and it reduces the number of traps that need to be 
serviced by a factor of up to two in many cases. 

ETOS 

EDUCOMP* s multi-user OS/8 system called ETOS seems to be coming along f airly- 
well now. I recently had a chance to review their System User Guide and System 
Manager Guide and It seemed to have a number of useful features and seemed to 
be reaching a level of some maturity. I hope to get a chance to go down to 
their site soon and give the system a try. If so, I will report on how it works. 

NOTE FROM PAUL DIEGENBACH 

Paul has written in response to the suggestion of exchanging program material 
that is not yet at a point where it is ready for a formal DECUS submission. 
He thinks that he coold help in this sort of thing in Europe. He volunteers 
to make informal copies of DECtapes or LINCtapes. You can contact Dr. Diegenbach 
at University of Amsterdam, Zoological Lab., Plantagedoklaan kh, Amsterdam, 
Netherlands . 

Dr. Diegenbach also suggest that a way to deal with letting users know about up- 
dates to library programs after they have ordered them would be to publish a 
list twice a year which shows what programs have been updated. He thinks that 
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this would be adequate for letting people know about new versions of programs 
they are using. He suggests that then all a user would do would be simply to 
order the new version. This is as opposed to some sort of more sophisticated 
automatic system. What do you think of this idea? Would it be adequate to 
meet the need for informing current users of updated DECUS software? 

GERMAN LANGUAGE FOCAL HANDBOO K 

Rudi Stange - from Germany has sent along a little note describing the latest 
issue of a German language FOCAL programming handbook which he wrote back in 
1969 and has re-issued a 1970 and 1973- It's a very nice book. I wish we 
could find a way to have it translated and published in English. It appears to 
be the most comprehensive book on the subject that exists. 

Rudi*s description of the book follows: 

German language FOCAL handbook (3rd edition) 

It lists among other things differences between FOCAL-68, 69, FOCAL-W, 
OMSI-FOCAL, PDP-11 FOCAL and FOCAL-GT, It shows symbol tables and many 
actual examples (copies of console printouts). 

It offers an exhaustive introduction to FNEW incl. internal handling. 
It explains multiuser FOCAL (QUAD, LIBRA) and CLIHE. 230 pages, price 
DM 10. — plus handling. 

If there are not too many requests, I will be glad to send one copy 
free of charge to each inquiry within Europe. 

Rudi Stange 

c/o DIGITAL EQUIPMENT GMBH 

Abt. Sales Support 

D 8000 Munchen kO 

Wallensteinplatz 2 

NEW PROGRAMS IN THE PECUS LIBRARY 

12-193 A set of FORTRAN/SABR routines for the DF32 - Rudolf Albrecht and 
Helmut Jenkner - University Observatory - Vienna 

8-769 SELF DRILL - Advanced 8K version of 8-656. Set of general purpose 

learning algorithums. Prof. Wheeler - Beloit College, Beloit, Wise. 

8-772 OS/8 compatible VC8e handler for mass storage systems. Steven V. 
Bechtol^hein - Max Plank Inst. 

8-773 Graphics Package for the Tektronix ifOlO terminal under OS/8 - James 
Lemer - Union College, Schenectady, N.Y. 
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8-778 PFCF Polynomial function curve fitting FORTRAN H. Pei-Nam Tsung - 
Buffalo General Hospital. 

8-779 TC58.PA - OS/8 version 3 device handler for the TC58 Magtape. Peter 
Lempkin - NIH. 

8-780 SPLIT & SPLICE - Pair of programs to split up large files into several 
smaller ones and to recombine them. Useful for such things as taking 
a large listing on an RK disk and braking it up into parts that will 
fit on BECtapes, cassettes, or floppy disks for storage, backup, or 
transfer. Rev. Chase - Portsmouth Abbey School. 

8-782 DEYHND - Device handler of a storage scope interfaced through the 
AX08- Robert V. Kenyon Jr. - University of California at Berkeley. 

8-783 ED1W - OS/8 EDIT (V3) with View on an AX08 interfaced storage scope. 
R. Eenyon (see 8-782 above). 

RANDOM ACCESS l/O FOR PORTRAN/SABR 

John Algeo has sent along an abstract for a package of OS/8 FORTRAN II routines 
that he has written. He feels that these are in the "not well enough documented 
for BECU3" category although reading his abstract and documentation I would say 
that his material seems to be as well documented as most of what you will find 
in DECUS. His abstract is as follows: 

A group of subroutines have been developed which implement random access 
file input/output for programs written in FORTRAN II or SABR. Record 
lengths from 1 to 256 words are allowed, and all data is handled in core- 
image format. The system is currently configured to allow five files to 
be active at one time; however, this number may be expanded via some 
trivial modifications. A feature of the system is its ability to keep 
files open across calls to CHAIN. Routines are provided to CREATE, OPEN, 
READ and WRITE files on any directory device. 

The package was designed to be reasonably efficient, and, although it has 
not been timed against a FORTRAN IV program, I believe that it should be 
quicker than the IV-lavel direct access routines . 

An indexed file handling package based on these routines is under develop- 
ment. 

Documentation and source listings are available from the author. 

Uifortunately, I do not have an address with this note, however pending catching 
up with John's address you can at least contact me for a copy of hij more de- 
tailed writeup, if you are interested. As soon as I find his address I will put 
it in the next Newsletter. 
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NOTE FROM REV. CHASE 

Rev. Chase says lie has been working along the same lines as Bill Kaufman on a 
PI)P 8/E EAE version of multiply and divide for FORTRAN II. His is full triple- 
precision. He is Just to the initial testing phase. 

He sends along an EAE random number generator for FORTRAN II. It is too long 
to fit in the Newsletter this time but if you want a copy let me know. 

Rev. Chase's source DECtape with some of his offerings to the OS/8 world has 
sources for undocumented programs in addition to the DECUS published material. 
For example, REWDIR "which he uses to rewrite directories and to create system- 
type empty directories on a TD8e drive not currently acting as SYS: 

He reports having trouble looking at and changing xocations 200-377 of a two- 
page handler with BUILD (with patch up through the SIZE modification) . 

LABORATORY BASIC 

Stanley R. Vivian sent a copy of his very nice manual for his modified version 
of OS/8 BASIC. His software is device independent and is set up for several 
PDP-8 and PDP-12 configurations. He says there is a nominal charge for the 
software - payable to the University of Manitoba. If you are interested I 
suggest orderingthe User's Manual for $5*00. See attached writeup for details. 

RUN TIME FILE MANIPULATIONS FOR FORTRAN IV 

I just heard from Bob Phelps that he has succeeded in writing a FORTRAN IV 
callable subroutine named "USR" that can do all the things necessary to open 
and close files while running programs. This is functionally similar to the 
I0PEN, m, COPEN" and OCLOSE" routines for FORTRAN II. 

Bob has promised to send me a copy of his program. When I get it I will report 
further. 

NOTES FROM BILL HAYGOOP, JR. 

Bill has sent along a couple of notes recently.. First, he is looking for some- 
one who might be interested in selling either a TD8e or TCC8 DECtape. He owns 
a system himself and would like to add the DECtape capability to it. He is 
presently working on the design of a multi-user system for OS/8. In that 
connection he has also sent along an article on his thoughts regarding the 
question in the last Newsletter about standardisation of IOT codes time sharing 
and foreground/background systems. This will be attached to the Newsletter. 

ENQUIRY FROM PUSTY WHITNEY AT QMS I 

While I was talking to Rusty recently he indicated that OMSI was interested in 
PASCAL for the PDP-8. The OMSI people would be interested and willing to work 
with anyone else who was interested in this project. 
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NOTE FROM WALTER C. DAUGBERITY 

Walter reported an SPR that he submitted the 28th of July regarding OS/8 BASIC. 
He says that if you attempt to compile programs containing constants that ex- 
ceed 10 or 11 significant digits (depending upon the particular constant) the 
number is compiled completely incorrectly. If you "write a program that says: 

A = 0.5000000000000 
B = 0.3333333333333 
PRINT A,B 

you will demonstrate this. The values printed are quite startling. Walter is 
interested in exploring the use of the TD8e PECtape for reading and writing 
LINCtapes. He suggests that if someone could work up a little program that he 
has outlined and use it to put a suitable pattern on a LESCtape that he could 
borrow for while to test his program, he might be able to get a LINCtape 
handler running on the TD8e. If you are interested in working with him you can 
contact him at ECRM, Inc., 205 Burlington Road, Bedford, MA. 01730, telephone 
(617) 275-1760. 



Bill is working with BECUS 8-7^7 (STAGE 2 & FIIJB) . He found a bug in the memory 
sizing routine. 

The fix is: 

Location From - To 



06412/ 7326 7327 

The source code change is in S2RTS.PA at location STARTUP + 12g: 

From: 

CLL CIA CML RTL 

To: 

CLL CIA CML IAC STL 

He is having trouble compiling FLUB on a 16K system and will have to use at 
least 20K. Otherwise he says it works OK. 

L ETTER FROM NORMAN R. DOTTI 

Mr. Dotti writes to tell us of some problems that he's found with FORTRAN IV. 
I will attach a copy of the SPR itself. As spa.ce does not permit reproducing 
all of the pages of examples you can contact me if you need a copy of the details 
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Mr. Dotti says that one of these problems took four months to solve. One of 
his problems concerns the CLOCK function. It did not work properly in version 
1 but a patch to FBTS fixed things up. However, when version 2 was released 
the CLOCK function again did not work. This time it took a new clock module 
which was to be added to FGBLTB using LIBRA.. DEC told him that they do not 
intend to make this fix available to the general public so if someone really 
needs it they can send him a DECtape. He could make paper tapes with a 
teletype, however that's not very attractive so he tries to avoid it. With 
this fix the clock seems to work correctly he says. His address is National 
Loss Control Service Corporation, Long Grive, Illinois 6CK&9- 

His second problem involves the data statement in FOHTBAN IV and the SHI for 
it is attached. He suggests that if you think you're having a problem like his 
that you should make some tests on the data statements to insure that they are 
working properly. 

His final comment is as follows: "I have just written a letter to DEC through 
our Sales Engineer regarding the support of OS/8. DEC seems to be phasing out 
or at least down, their support of the PDP-8 in spite of the fact that a lot 
of us depend on it. I would really like to see them come up with a supported 
super OS/8 (-S0S/8) like that discussed in the July Newsletter, I don't expect 
software to work right the first time (but it would be a pleasant experience) 
but I simply must have more realistic responses when problems do develop. My 
work depends on it and I cannot afford to have it effectively out of commission 
for months at a time while an SPR floats around." 

Mr. Dotti says if anyone has comments on any of the above, he would appreciate 
hearing them* 

NOTE FROM IARS FAIMER 

Lars has sent along a couple of items for the Newsletter. The first involves a 
bug that he has found in his program EXPIP: 

A bad bug exists in EXPIP version 7. It concerns the operation of /M and /p 
options and on the RK8E disc. In this situation the output file size is some- 
times calculated wrongly. The following patch should be implemented and corrects 
the situation. 

Location Old New 



12133 70^1 7710 

1213U 7510 5337 

12135 70*il 7350 

12136 7350 3330 

12137 7001 2330 
121^0 3330 7000 
15613 6701 6703 

Old locations might not be these listed. 
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Lars points out that there is a special configuration that offers particular 
problems to B3S8 users and to multi-user systems. That is, the FPP-12 option. 
Tom Mclntyre has addressed this problem to some degree in connection with his 
FBP-12 at the last one or two DECUS Symposiums. It is a special problem be- 
cause the normal schemes for relocating the fields for background programs 
don't work in the case of the FPP-12. Any configuration that has this hardware 
would very much like to be able to use it in whatever system they implement, 

Iars sends along the following SPR comments. These are SPR's that he has sub- 
mitted and so far are unanswered. Regarding the RALF SPR mentioned in the last 
Newsletter, my explanation was partly correct but not fully true. (A) He has a 
rather complex FORTRAN IV program that runs beautifully under FRTS version 2 
but constantly gives input error under version 3« No explanation of this so far. 
(B) The patch number 5 to FORTRAN inhibits in at least some cases the function 
statement capacity. (C) There are at least two cases in the compiler ^here the 
compiler refuses to behave properly on errors in the FORTRAU source code. 
The error: 

DO 10 I = J-l 

is not detected by the compiler. The error: 

LOGICAL L 

If (L) 10,20,30 

produces halt in the compiler. At least his compiler halts. DEC says that they 
cannot reproduce this problem. 

NOTE FROM JIM VAN Z EE 

Jim wrote about an SPR he submitted. It involves the /l option of ABSLDR. It 
seems that it does not work correctly when the core image contains full fields. 
The patch to correct this should be in the October Digital Software News. Jim 
has noted that the same bug appears in all versions of the system all the way 
back to PS/8 and wonders if the fix should be verified or adapted for the older 
versions of the system. 

This idea raises the basic question of continuing support of older versions of 
the software for those who do not wish or cannot afford to purchase new versions. 
Do you think this is important? Are there many users sticking with the older 
versions? In other product lines DEC has already been forced to deal with this 
problem because new versions of the software cannot run on older machines (i.e., 
RSTS-ll) . 

WORDS .RA 

Tom Mclntyre sent along his version of a FORTRAN IV callable routine to access 
12 bit data. It works just like the standard library routines "CGET" and "CPUT" 
except that it operates on 12 bit data words rather than 6 bit characters. A 
copy will be attached to this Newsletter. I would like to know if anyone has 
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success in running this routine on a non-FPP configuration (Toia has an FPP-12) . 
I am not quite sure if the run time system for non-FPP systems supports some 
of D mode instructions used. 

This version is probably more attractive than my "WOBDOP" version mentioned in 
Newsletter No. 12 if you have an FPP. 

"WHETSTONE" BENCHMftBK TESTS 

Several members of the SIG have helped me run a benchmark program on several 
different hardware and language configurations . The program is said to be the 
one that produced the famous "Whetstone" measurements on a wide variety of 
systems that have received considerable publicity. I will attach a summary of 
the results we have measured and a selection of the published results which 
are advertized as having been run against the same test. The test seems to be 
a reasonable exercise of FOBTRAH and it has been designed to try to minimize 
compiler optimizations such as removing static calculations from loops. The 
translations to other languages are by no means directly comparable but they 
give some sort of minimal comparison of "number crunching" speeds. 



MHETSTONE BENCMHRRK REPORT 



O 



v.. 



HftCH 1 NE^CONF I QURflT 1 ON 

PDP-8I 
PDP-8I 
PDP-8E 

P0P-8E/KE8-E EflE 
PDP-8E/KE8-E EftE 
PDP-12/TPP-12 FLOATING 
POINT PROCESSOR 

PDP-8I 
PDP**8E 
PDP-8E/KE8-E EfiE 



PDP-91 
PDP-8I 
PDP-81 
PDP-81 
PDP-81 
PDP-81 
P0P-8E.-KE8-E ERE 

PDP-ll/^S, 64K CORE FPP 
PDP-11/45, 64K CORE* FPP 
PDP-11/45, 64K CORE, FPP 

IBM 368/75 
IBN 378/158 



MOCHINE/CONP IGUT<ftT ION 
PDP-11/45 7? 
DECSVSTEM-18 KB 
DECSVSTEH 18 KI 

NOVA 848 

MMPU, FPPU, MID, 64K 

IBM 368/65 

IBM 388/65 

CDC 7608 



MEASURED RESULTS 
LANGUAGE/OPTIONS 



PREC. SPEED 



OS/8 FORTRAN 
OS/8 FORTRAN 
OS/8 FORTRAN 
OS/8 FORTRAN 
OS/8 FORTRAN 
OS/8 FORTRAN 



IV 

IV /N/0 

IV 

IV 

IV /N 

IV 



OS/8 FORTRAN II 
OS/8 FORTRAN II 

OS/8 FORTRAN II /BILL KAUFMANS 
MODIFIED LIB8 RL FOR KE8-E 

OS/8 BASIC 

PFOCAL <0MS1> 

PFOCAL <OMSI> 

U/W-FOCAL 

U/N-FOCAL <JIM VAN ZEE> 

U/W-FOCflL 28K-V2 

U/W-FOCAL 

MOP FORTRAN 
RT-11 FORTRAN IV 
FORTRAN IV PLUS 

FORTRAN Q 

FORTRAN H EXT. LEV. 2. 1 

NO OPTIMIZE VSU VI. 7 HASP 



PUBLISHED DATA 
LAMQUAOE/OPTIONS 
?? 

FORTRAN 
FORTRAN 

FORTRAN 5 <3. 81) 

FORTRAN 
FORTRAN H OPT 2 

FTN OPT-2 



2"23 


2. 


6 


2**23 


2. 


9 


2~23 


3. 


15 


2"23 


4, 


67 


2~23 


5.13 


2~23 


34, 


5 


2"27 


2. 


4 


2~27 


2.82 


2*27 


B. 


43 


2*23 


3. 


1 


2*35 


8. 


34 


2*23 


8.37 


2*35 


8. 


48 


2*23 


8. 


43 


2*35 


8. 


49 


2*35 


8, 


76 


2*55 


62. 


18 


-55 


65. 


96 


k Jit 


168. 


96 


? 


518. 


6 


SINGLE 


658 




D0UC4.E 


475 




PREC. 


SPEED 


2*23 


77 




2*27 


194 




2~54 


56 




2*27 


bee 




2*54 


258 




16*6 


71 




16*14 


56 




16*6 


438 




16*14 


321 




16*6 


521 




16*14 


421 





2*48 9333 



Special thanks to Mark Uvis, FM, Bill Kaufman, Mobil RiD Corp. # Jin win Zee, 
University of Seattle and To« Mclntyre, Mast Virginia University Medical Center for 
helping ru>. tht>se benchmarks. 



STANDARDIZATION OF I0T CODES FOR TINE-SHARING AND FOREGfWUND/BACWSROUND 

rains, $mmp w ", pi "vm ^ 

Tht following 1t tubalttad at i proposal for a ttandardliatlon of tht IOT 
coots uitd In POP-8 Fortground/Background «nd t1*t"ihar1ng lyiittm. Each 
of tht following pagtt 1t thown with 200, IOT codos and a propottd utt for 
many of tham. Whtrt thtrt It no Information at tht bottom of « paga 
rtgardlng a tptrtfte mntmonlc. that mntmonk hat approxlmataly tht tama 
iwanlng at tht corraspondlng EDUSYSTEM SO mnamonlc. For tho add tiona 
mntmoKlcs that I an proposing. txpUnttlons art glvtn, I strongly fttl 
that soma of tht EDUSYSTEH SO I0T T t should bt acctpttd at a standard 
ftaturt on an OS/8-orltnttd tlma-sharlng sytttmt. Among thtso art; KSjJ, 
SBC, UNO, DUP, TOO, RCR, DATE, SYN, STM, SRA, TSS, SSW, SEA, ASD and REL 

8y tht way, 1t sttms natural that PDP-8 ta-sharlng systtms In tht nttr 
futurt will bt ctnttrtd around making 05/8 *va1 labia to tach tilmt-shartd 
uttr, Thlt proposal it strongly Influtnctd by this way of thinking. 

Slncn wt havt only 1000 ( IOT codtt at our disposal, I suggast tthat wt 
cartfully consldtr which codtt will bttt ttrvt v*riout purpottiu 

To gat a dutcuttlon going, \ propott tht following: 

IOT Codtt: PROPOSED USAGE; 

6000-6077 With faw txctptlons, thttt codtt thould bt rtttrv«d for 
toftwart simulation of tht actual hardwart codtt, 

6100-61 77 No thoughts on thttt codtt at tht prtstnt tint. 

6200-6277 Exctpt for CKS, RDF, RIF, and tht fltld changing codtt, 

thttt codtt thould bo rtttrvtd for utt by tht timo-sharing 
txtcuttvt tytttn for cotnunlcatloo with tht uttr program 
with or without tht uttr't knowltdgt (highly 1mpl«mantat1on 
dtptndtnt, of courttl), 

6300-6377 No thoughtt on thttt codtt at tht prtttnt tint. 

6400-6B77 EDUSYSTEM SO hat wadt utt of tout of thttt codtt to tnablt 
user program to obtain Information from tht txtcutlva 
tysttm Hstlf, This utage thould bt contlnutd wlflh thttt 
sptdflc codtt tarmtd §x*outiv§ mpittU, Many tnrvlctt 
can bt addtd utlng thttt codtt to atsltt tht uttr tuch at 
a floating point packagt., Tht uw of tout of thtut itrvlctt 
thould, of courtt, bt an additional chargt to tht uttr. 

6600-6777 It stmt that tott of tht now ptHphtralt DEC It /taking 
utt I0T*t In thlt ranga. In kttplno with tht phUotoony 
that tach uttr thould fttl that ht ft utlng a itantVAioM 
tystam, thttt codtt should bt rtttrvtd for tht software 
simulation of tht actual hardwart codtt. 

To kttp things In gmwal agrttmtnt with OEC't Hardwart 107 pracllctt, 
wt should contldtr tuch things ast 



"SKIP ON FLAG 1 * typt lOT't thould tnd 1n 



"CLEAR FLAG" 
"DO OPERATION* 



typt lOT't thould tnd 1n 
typt lOT't thould tnd 1n 



•4" or 



lib 



mhimom HjBprjBB pBfflffiSfit #14 

any OS/8 or 03/12 computer configuration with one 
of the following groups of laboratory peripherals. 

1. 1AB-8/B, BDB-8/B 

DK8-E3 Real Time Clock and Schaitt Triggers 

AD3-B3 analogue to Digital Converter 

•JM8-SA Multiplexor 

VC8-B Display Control 

•DB8-B1 Digital I/O 

2. iXOe, PDP-8 family 

1108 Combined ADC/Scope Control 
HC and Cry stel Clocks 
•Option XB Digital Outputs* Contingency Inputs 
•Option Hi additional Channels of analogue Input 

3- EDP-12 

M12-A Beal Time Programmable Clock 

AD12 analogue to Digital Converter and 
16 Channel Multiplexor 

•AH12 additional 16 Channel Multiplexor 

TC12 JiHC Scope Control 

¥3 12 OsciHosccpe 

•XD12 Digital Output Belays 

• fhese components ax* optional. They are 
supported by the system but are not 
essential for a satisfactory performance. 

HOTB - in. oscilloscope of eny type should be considered 
am ssestisl coaponent for any laboratory system. 

OfTICBAS BJBJW1BB SUBEOBTBp.8 

Jay other devices supported by 03/8 BASIC - such ass 
additional memory* line printer, disk* BDP-8/B BAB* etc. 

PRfflBQtKSITB SOFTWARE ; 

OS/8 ?3 

OS/8 BASIC 75 



Mail tot 



The Small Computer Bund 

Department of Pharmacology ft Therapeutics 

University of Manitoba faculty of Medicine 

770 Bannatyne Ive. 

Vinnipegt Manitoba 

B3B 0w*3 

Canada 



for further information call : 



Stan Vivian 
(204) 786-3642 
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EXECUTIVE REQUESTS! 



to 



6400 
6401 

6408 

6463 
6404 
6405 
6496 
6407 
6410 
6411 
6418 
6413 
6414 
6415 
6416 
6417 

648 « 

6481 
6488 
6483 
6484 
6485 
6486 
6487 
6430 
6431 
6438 
6433 
6434 
6435 
6436 
6437 



KSB 
SBC 
CUP 
UNO 

CLS 



SISE 

URT 

TOO 

RCR 

DATE 

SYM 

STM 

SRA 

TSS 

USE 

CON 



SSV 
SE4 



6440 ASO 

6441 

6448 REL 

6443 

6444 

6445 

6446 

6447 

6450 

6451 

6458 

6453 

6454 

6455 

6456 

6457 

646*1 

6461 

6468 

6463 

6464 

6465 

6466 

6467 

6470 

6471 

6478 

6473 

6474 

6475 

6476 053 

6477 



6500 
6501 
6508 
6503 
6504 
6505 
6506 
6507 
6510 
6511 
6518 
6513 
6514 
6515 
6516 
6517 
6580 
6581 
6588 
6583 
6584 
6585 
6586 
6587 
6530 
6531 

6538 

•# * *** 

6334 
6535 
6536 
6537 



6540 
6541 
6548 
6543 
*644 
6545 
6546 
6547 
6550 
6551 
6558 
6553 
6554 
6555 
6556 
6557 
6560 
6561 
6568 
6563 
6564 
6565 
6566 
6567 
6570 
6571 
6578 
6573 
6574 
6575 
6576 
6577 



FSP 
PAD 
FSB 
FMP 
FDV 

fgkt 

FPUT 
FNOR 

FPINT 

FPICL 

FPCOM 

FPHLT 

FPST 

FPRST 

FPIST 



COOKS 6840*6547 CALL FOR FLOATINO POINT OPERATIONS TO BE 

PERFORMED BY TNI EXECUTIVE SYSTEM. THE USER'S OPERAND 
ADDRESS MOULD RE SPECIFIED BY THE LOCATION POINTED TO 
BY THE CONTENT OF THE USER PC AND INSTRUCTION FIELD* 
THE USER DATA FIELD WOULD INDICATE THE RELATIVE DATA 
FIELD LOCATION OF THE OPERAND^ H FSP" WOULD BE A 
SPECIAL EXIT LIKE DEC'S F',OATtNO POINT PACKAGES 
EXCEPT THAT THE SUBROUTINE DESIRED (SQROOT* SINE* ETC) 
WOULD BE SPECIFIED IN THE LOCATION POINTED TO BY THE 
USER PC AND INSTRUCTION FIELD^ fH* FORMATS OF THE 
PACKAGE WOULD BE IMPLEMENTATION DEPENDENT. THE USER 
FLOATING ACCUMULATOR WOULD BE SN RELATIVE USER 
ADDRESS 00044-00047. ADVISABLE ONLY FOR SYSTEMS WITH EAE. 

TYPICAL CALLING SEQUENCE l 

CDF 10 /OPERAND IN RELATIVE FIELD 1 
FDV /FL DIV MY FAC BY OPERAND 

OPRAND 
RETURN IS HERE WITH IF AND OF AS BEFORE CALL 

SUGGESTED FLOATING POINT DATA FORMATl 

TO OBTAIN MAXIMUM ACCURACY FROM A 3-WORD FLOATING POINT NUMBER 

WITH REASONABLE LIMIT TO EXPONENT SIZE* I PROPOSE THE FOLLOWING! 



WORD It 



WORD 81 



BITCS) USE 

SIGN OF MANTISSA 

1-9 EXPONENT BIASED AT 800<8> 

9-11 HIGH ORDER MANTISSA IN SIGN-MAGNRTUDE 

FORMAT WITH MSB IN BIT 8 POSITION 

(HIDDEN BIT) 

0-11 MIDDLE ORDER MANTISSA 



THE CODES 6400-6577 SHOULD BE RESERVED FOR "EXECUTIVE REQUESTS" • 

SEE FIRST PAGE FOR MORE DETAILS ON EXECUTIVE REQUESTS. 

IOTI EXECUTIVE SYSTEM ACTION! 

OS* RESTORES RESIDENT OS/4 TO USER CORE AND SETS RE-START 
ADDRESS TO USER RELATIVE 07600 (ALLOWS USER TO USE ALL 
HIS CORE AND LATER RESTORE OS/8 RESIDENT PORTION). 

CODES 6540-6547 SHOULD BE RESERVED FOR USE OF A FLOATING 
POINT PACKAGE. SEE DETAILS ON NEXT PACE 

CODES 6551-6557 SHOULD BE RESERVED FOR SYSTEMS HAVING THE 
FPP-18 HARDWARE FLOATING POINT PROCESSOR. SOME 
IMPLEMENTORS MAY DESIRE TO SIMULATE THIS HARDWARE. 



WORD 3t 0-11 LOW ORDER MANTISSA 

SOME EXAMPLES I 

THE NUMBER "I" WOULD BE l 

THE DUMBER "-PI" WOULD BE l 



THE MANTISSA ALWAYS REMAINS A POSITIVE QUANTITY WITH BIT QF 

WORD 1 INDICATING THE TRUE SIGN. THE USE OF THE "HIDDEN" 

BIT (HIVES AN ADDITIONAL 4 BITS OF ACCURACY OVER THE 84-BIT FPP. 



HIDDEN BIT 


84-BIT FF'P 


0010 


0001 


0000 


8000 


0000 


0000 


6084 


0008 


4417 


4567 


6658 


4083 
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6600 
6601 
6602 
6603 
660A 
6605 
6606 
6607 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 



6640 


6700 


6641 


6701 


6642 


6702 


6643 


6703 


6644 


6704 


6645 


6705 


6646 


6706 


6647 


6707 


6650 


6710 


6651 


6711 


6652 


6712 


6653 


6713 


6654 


6714 


6655 


6715 


6656 


6716 


6657 


671? 


6660 


6720 


6661 LPSF 


67? i 


6662 LPCF 


6^22 


6663 


67S3 


6664 LPPC 


6724 


6665 


6725 


6666 LPLS 


6726 


6667 


6727 


6670 


6730 


6671 


6731 


6672 


6732 


6673 


6733 


6674 


6734 


6675 


6735 


6676 


6736 


6677 


6737 



6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 



DSKP 
DCLR 
DLAG 
DLCA 
DRST 
DLDC 



DTRA 
DTCA 

DTXA 

DTLA 



DTSF 
DTRB 

DT5CB 



If* KEEPING WITH THE PHILOSOPHY THAT EACH USER SHOULD FEEL AS 
THOUGH HE IS USING A STAND-ALONE SYSTEM, THESE CODES SHOULD BE 
RESERVED FOR USE BY THE IMPLEMENTOR FOR SOFTWARE SIMULATION OK 
THE SAME HARDWARE CODES DETERMINED BY HIS HARDWARE CONFIGURATION. 

FOR EXAMPLE* THE ABOVE CODES WOULD BE USED IN A SYSTEM WITH AN 
LS3-F LINE PRINTER, AN RK8-E DISK DRIVE, AND A TC08 DECTAPE. 
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SOFTWARE 

PERFORMANCE 

REPORT 



FIELD #r 



|SPR #: 
FOR DEC USE ONLY 



24015 



Page 1 o/ 



SYSTEM PROGRAM AND VERSION fOR DOCUMENT) 

FORTRAN IV v II (3.03) 



MONITOR AND VERSION 
OS/8 III 



DATE 



8/26/75 



ncr itceire 



name. Norman R. Dotti 
firm: Kemper Corporation 

address: Iiong Grove, Illinois 60049 



Rolling Meadows 



ZIP 



SUBMITTED BY: 

Norman R. Dotti 



PHONE: 

(312) 540-2033 



LIST ATTACHMENTS 

Source Code and Output 



REPORT TYPE PRIORITY 

QQ LOGIC/COOING ERROR D LOW 

Q DOCUMENTATION ERROR D STANDARD 

□ SUGGESTION S3 HIGH 

GO INQUIRY 

CD FOR YOUR INFORMATION 

CAN THE PROSLSM BE REPRODUCED AT WILL? 
QQ YES □ NO 



CPU TYPE 
8E 



SERIAL NO. 



SYSTEM DEVICE 



]TD8e and 
JEoj 



6278 [Foreign-Disk 32K 



MEMORY SIZE 



DISTRIBUTION MEDIUM 



DECtape 



PROBLEM: DATA Statement doesn't work as advertised. 

I've found two problems with the DATA Statement, one minor, one major. The 
first involves combinations of va«Table and value lists. Page 8-112 of 
OS/8 Handbook shows the "correct" form, but this doesn't work. It seems 
that "commas" are needed to separate a variable from the preceding value. 
See Example, 1, attached. 

Second problem is much more complicated. When working with DATA ARRAYS , 
the values aren't always being put in the correct elements in the arrays. 
After trying dif f erent tilings , it seems to me that the problem is in the 
initializing of the array by the DATA Statement, not with the look-up 
which pulls the values from the arrays. 

page 2 shows a small program which seems OK? wrote it after problem came 
up. Pages 3 and 4 show a program and BLOCK DATA subprogram which should 
output array elements; results are not correct. 

page 5 shows part (cut-down as part of testing) of a program that defines 
an array, and then dumps it; it doesn't work correctly! 

I've spent some time with Frank Nicodem, DEC, Rolling Meadows, on the 
problem, and he has copies of all tests I've run. 

CC: Frank Nicodem, Software Services, Rolling Meadows, IL 
Dave Ferrarini, Lab Products, Marlboro, MA 



DO MOT 
PUBLISH 



□ 



DATE RECEIVED 



SOFTWARE COMMUNICATIONS USE ONLY 



BACK PROM MAINTAIN!* 



TO MAINTAINOR 



DATE CLOBBO 



LOGGED ON 



**"P 



LOGGED OPP 



r^r-nvAHF communication*; 



#14 
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SOPTVABB DBS0B1PTI0B 



laboratory BASIC V4 



July 1975 






laboratory BASIC is a laboratory oriented major extension to 
OS/S BASIC. It is intended primarily for the high level 
language programmer , the investigator who wants to do his own 
programming, the experienced programmer who wants to spend a 
minimum of time in program development - without excessive 
execution time penalty, or for the graduate student with his 
first encounter with laboratory computing* 

Problems best suited to Laboratory BASIC are "event* related 
problems where a series of events of relatively constant time 
course are to be acquired, averaged, smoothed, stored on and 
retrieved from mass storage, examined for maxima-minima, 
times to peak, etc. Examples include* Musole oontx notion 
and/or relaxation phenomenon, conduction characteristics in 
isolated ooxtex slabs, and BKG analysis. 

Major features of Laboratory BASIC are) 

- Standard Simple High Level L an guage All the features of BASIO 
and the extensions of OS/ 8 BASIC are available. 

- D e vice Independence Laboratory BASIO will run on any CS/8 or OS/12 
system with laboratory peripherals and for which a 1 or 2 

page handler can be written. 

- Excellent Core Efficiency The laboratory overlays to OS/8 BASIC 
consist of 5 segnents, only one of which is core resident at 

a time. The segments are dynamically loaded without user 
intervention or directory lookups. 

- Trace Mode Data Storage Samplod data from a particular 
channel is stored in contiguous looations in the buffer to 
facilitate examination and analysis. 

~ Random Data Access Acquired events may be transferred to or 
from any mass storage file in random order. 

- Continuous Data Transfer The whole data buffer is transferred 
to or from esss storage in a single operation. Thus, on DEC tape 
a single tape motion can transfer the entire data buffer, 

" Lot r,c Data Buffer The data buffer oan contain any multiple 
of 250 data points tip to 2048 in core. 



string or rue functions m 
function call 8. 



Calls to the o tender d arithmetic, 
lay be intermixed with any laboratory 



There is random aooeas 
virtual fila 



- amjgp Anm to n9*ttaff,Mnt Biftf *»•* 
to the data in numerical files providing a 

capability, 

- ttoltoUMl.JWWttfflV *&•*• art funotlone to rapidly find 
minima-maxima, test for data continuity, or smooth the data 
with an B-point running average, 

- iMUglffr? v fn l tJ,YiTl^n« Multiple evente may be averaged 
together in a floating point array buffer at high speed. 

1X1 - Establish buffer wise, load handler. 

VI!? - Put a floating point no. randomly Into any numerical file. 

Vfijj - Oct a floating point, no* randomly from any numerical file. 

PXlf - Put a pair of ooordlnatea randomly into a buffer reserved 
for 2-ooordinate display, 

DX'f « Display all, or a segment of, the 2-ooordinate buffer. 

0L1C - Set the olook or wait for the oloofc or Sohmitt trigger e, 

BAH - Burst sample at preset dock rate, any no, of channels, 
Sohmitt wait optional. Display while sampling. 

Dili - Display all, or a segment of, the sampling buffer. 

MA!) - Transfer tho entire sampling buffer randomly to or faom 
a mass storage file* 

PU!P - Put a floating point no. from 0,0 to 1.0 into the «ampllng 
buffer as a suitable integer. 

OEff - Betrievo sampled data from the aampling buffer as a floating 
point no. from 0.0 to 1.0. 

or, 



Dim 



- Bead tho switoh register or digital input register, 
set the digital output register. 



MAI - Bind locstion of msximum or minimum value within a oeleoted 
range of tho aampling buffer, 

CON - Examine a selected segment of the sampling buffer ;for data 
continuity and report position of outliers, 

BAV - Perform on H-point running average on the data within a 
selected range of the sampling buff or. 

AYR « Ensemble averaging funotion, Adda or subtracts a iieleoted 

ranfto of tho aumplinc buffer to or from the averaging buffer* 
Multiplies or dividoa by a oonotant and transfers between 
buffers where appropriate. 



H 





6890 




6001 




6088 




6003 




6804 




6005 




6006 SGT 




6007 CAF 




6010 RRS 




60U RSF 




6012 RRB 




6013 




6014 RFC 




601S 




6016 RRC 




6017 




6080 PST 




6081 PSF 




6088 PCF 




60S3 PC* 




6084 PPC 




6385 




6086 PLS 




6087 




6030 KSR 




6031 KSF 


H 


6038 KCC 


C» 


6033 




6034 KRS 




6035 




6036 KRB 




6037 




lOTt 1 




SQT I 




CAF i 




RFC ( 




RRC 1 




PCB < 




KCC < 




KRB 4 




TSK J 



6040 5AS 

6041 T5F 
6048 TCF 
6043 

6044 TPC 

6045 TSK 

6046 TLS 
6047 
6050 
6051 
6058 
6053 
6054 
6055 
6056 
6057 
6060 
6061 
6068 
6063 
6064 
60*5 
6066 
6067 
6070 
6071 
6078 
6073 
6074 
6075 
6076 
6077 



6100 
6181 
6108 
6103 
6104 
6105 
6106 
6107 
6110 
6111 
6U8 
6113 
6114 
6115 
6116 
6117 
6180 
6131 
6188 
6183 
6184 
6185 
6186 
6187 
6130 
6131 
6138 
6133 
6134 
6135 
6136 
6137 



6140 
6141 
6148 
6143 
6144 
6145 
6146 
6147 
6150 
6151 
6158 
6153 
6154 
6155 
6156 
6157 
6160 
6161 
6168 
6163 
6164 
6165 
6166 
6167 
6170 
6171 
6178 
6173 
6174 
6175 
61/6 
6177 



EXECUTIVE SYSTEM ACTION! 

SKIP ON *M3T" FLAG CFOR SYSTEMS WITH EAE> 

CLEAR AC. LINK* 8T FLAG* AND SET EAE TO MODK A 

CL^AR READER CORE BUFFER* START READER 

GET A CHAR FROM READER CORE BUFFER 

CLEAR PUNCH CORE BUFFER 

CLEAR AC 

CLEAR AC* READ KEYBOARD 

SKIP ON KEYBOARD/PRINTER FLAG 

CODES 6000-6077 SEEM PRETTY MUCH DEDICATED TO THE SOFTWARE 
SIMULATION OF THE SAME BASIC HARDWARE COOES. PERHAPS THCSE 
UNUSED IN THiS RANGE SHOULD BE RESERVED FOR FUTURE DEVELOPMENTS 
BY DEC FOR PERIPHERAL DEVICES WHICH MAY USE THESE CODES. 

I HAVE NO STRONG FEELINGS REGARDING THE USE OF THE CODES 
6100-6177. 



6800 CKS 




6840 






6300 


6340 


J801 CDF 


00 


6241 


CDF 


40 


6301 


6341 


6808 CIF 


00 


6848 


CIF 


40 


6308 


6348 


6803 CO! 


00 


6243 


CM 


40 


6303 


6343 


6804 




6844 






6304 


6344 


6805 




6245 






6305 


6345 


6806 




6846 






6306 


6346 


6807 




6847 






6307 


6347 


6810 




6850 






6310 


6350 


6811 CDF 


10 


6851 


CDF 


50 


6311 


6351 


6818 CIF 


10 


6858 


CIF 


50 


6318 


6358 


6813 CD1 


10 


6853 


CDI 


S0 


6313 


6353 


6814 RDF 




6854 






6314 


6354 


6815 




6855 






6315 


6355 


6816 




6856 






6316 


6356 


6817 




6857 






6317 


6357 


6880 




6860 






6380 


6360 


(!.881 CDF 


80 


6861 


CDF 


60 


6381 


636) 


fi.888 CIF 


80 


6868 


CIF 


60 


6388 


6368 


< 823 CDI 


80 


6863 


CDI 


60 


6383 


6363 


0884 RIF 




6864 






6384 


6364 


0885 




6865 






6385 


6365 


0886 




6066 






6386 


6366 


0887 




6867 






6387 


6367 


6830 




6870 






6330 


6370 


6831 CDF 


30 


6871 


CDF 


70 


6331 


637) 


6838 CIF 


30 


6878 


CIF 


70 


6338 


6372 


6833 CDI 


30 


6873 


CDI 


70 


6333 


6373 


6834 




6874 






6334 


6374 


6835 




6875 






6335 


6375 


6836 




6876 






6336 


6376 


6«37 




6877 






6337 


6377 



CODES IN THE RANGE 6800-6877 (EXCEPT CKS* RDF* RIF* AND THK 
FIELD CHANGING CODES) SHOULD BE RESERVED FOR USE BY THE 
MME- SHARING EXECUTIVE SYSTEM ITSELF < WHICH WOULD BE HIGHLY 
IMPLEMENTATION DEPENDENT). 

I HAVE NO STRONG FEELINGS REGARDING THE USE OF CODES IN THE 
RANGE 6300-6377. 



4k 



/FORTRAN SUBROUTINE TO FETCH AND PUT |2 BIT HQRDS IN AN ARRAY 
/CALLING CONVENTION 19 THE SAME AS THE STANDARD LIBRARY ROUTINES 
/CGET AND CPUT EXCEPT U BIT "BYTfcS" ARE TRANSFERRED, 

/«MAU COMPUTER LAB 

/DEPARTMENT OF PHYSIOLOGY ANO BIOPHYSICS 

/HIST VIRBINIA UNIVERSITY MgpiCA^ CENTER 

/MOROANTONN, NE8T VIRGINIA 26506 

/ 

/ 

/MAY If i*T« 

/ 
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NORDXR, 

BPNORD, 

XRNQROf 

FROWt 

NNOROt 

POINT, 

TEMPi 



NOROTNi 
START* 



SECT 

ENTRY 

ENTRY 

TEXT 

SETX 

SETB 

Pi, 

* it 
f •. 
p •• 

P 8, 

p i. 

0R8 

PNOF 

JA 

B 

JA 

BASE 

JA 

START 

PLDA 

PSTA 

PLDA 

SETX 

SETB 

BASE 

LO* 

PSTA 

PLOAX 

PSU8 

r$TA 

PLOAX 
PSTA 

PLOAX 
PSTA 

STARTF 

*LDAX 

POSV 

ATX 

XTA 

PMUL 

PSTA 

ALN 

STARTO 

PAOO 

PSTA 

STARTF 

PLOAX 

PSUB 

PAOO 

PSTA 



&0R03 

WBET 

NPUT 

♦W0R03* 

XRNORD 

BPNORO 



/SET INOEX RES TO ADDRESS OP XRWORD 
/SET BASE RES TO ADDRESS OF XRHORO 



/CONTAINS VALUE OP MQRD* THIRD AR6UMENT 
/POSITION OP ELEMENT IN ARRAY* SECOND AR6 
/TRIPLICATE CURRENTLY SEXNS MANIPULATED 
/TEMPORARY STORAGE OF TRIPLICATE 
18*3*PPN0RD 

MQROXR 



ta*3 

NOROTN 
B 

XRHQRO /SET XB TO ADDR OP XRWORD 

BPWORD /S£? BASE REG TO ADDR OF BPNORO 

BPNORD 

lft 

BPNORO /STR SAVEO IN BPNORO 

BPNORO, I 

KJA /REMOVING THE JA 

STR /CONTAINS ADDRESS OF ARRAY, FIRST ARS 

BPtiQROtlt 

NHORO 

BPNORO, *♦ 



FROM 

NNORD 

A 

B 

B 
A 

TEMP 
B 

STR 
STR 

NNORD 
TEM* 
PONE 
NNORD 



/ADDR OF F 



/TAKE THREE* 
/FIX IT INTEGER 
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FONE# 

KJA # 

STRS, 

3TR # 

NGtu 



WPUT. 



A# 

four. 



P | v 

ISSSfBBOO 

27 

s*0 

JIA START 
PLDA 3TR0 
FNQRW 



FADO 

fsub 

AtN 

5TARTD 

P3TA 

StARTF 

FLDAX 



NHORD 

Feun 



FSTA TEMP 
«TX TSHP 

XTA 2 

F3TAX FROM 
JA WORDTN 

4SA START 
PLDA STRS 
*NORM 



PADO 

FSUB 

AtN 

STARTP 

F0TA 

ItARTF 

FLDAX 

FSTA 

3ETX 

FLDAX 

ATX 

FLOA 

FSTAX 



POINT 

TEMP 

TEMP 

FROM 

2 

TEMP 

POINT 



4A WOROTN 
END 
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/LOAD ADDRES3 OF ARRAY 

/CHANGE TO FLOATING FORMAT 

/LOAD NUMBER OF ELEMENT 

/SUB 3 TO PUT ELEM. IN THE L3 ,12 BITS 

/PREPARE FOR DOUBLE PRECISION 



POINT /STOKi AOOR OF ELEMENT i 2 PREV, 



POINT /LOAD 3 ELEMENTS 

/STORE TEMPORARILY 
/PARALLELS INDEX RES ADDRESS 
/RETURN ELEMENT TO FAC 
/STORE FETCHED 12 SIT NORD 
/RETURN TO CALLIN8 PROGRAM 



/LOAD ADDR OF ARRAY 

/CHANGE TO FLOATING FORMAT 
NNORD /ADD THE POS, OF ELEM, TO ADDR, OF ARRAY 
FOUR /SUBTRACT FOUR FOR ADDR OF 56 BIT WORD 



POINT /STORE AOOR 



/LOAD THRCC ELEMENTS 

/STORE TEMPORARILY 

/PARALLEL THE INOEX REG WITH TEMP 

/GET ELEMENT 

/MOVE ELEMENT TO INDEX REG 

/LOAD CORRECT TRIPLICATE 

/PLACE CORRECT TRIPLICATE INTO ARRAY 

/RETURN TO CALLING PROGRAM 
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